home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / srch.uem < prev    next >
Text File  |  1995-07-21  |  967b  |  45 lines
  1. ;  @(#)    SRCH - microEmacs v3.9i+ macro file to search for tag under csr 
  2. ;
  3. ;   'tag' is same as in tags.cmd ( fm where this macro was snarfed )
  4. ;
  5. ;        MJH Feb 1991  v1.0
  6. ;    Bound to C-X H.....
  7. ;
  8. ; Variables :
  9. ;     %tag     - tag string
  10.  
  11. ;+ Examine how setup/use procedure names !!!
  12.  
  13. set $discmd FALSE
  14. 26 store-macro
  15. ; set %tag "Enter tag:"
  16. ; set %tag &cat "^"  @%tag
  17.  
  18.     !if &or &equal $curchar 20 &equal $curchar 9
  19.     next-word
  20.     !else
  21.         !while &equal 0 &sindex " ()[]{}*!=,~t~n" $char
  22. ;write-message &cat &cat "[" $char "]"
  23. ;set %wait >k
  24.         backward-character
  25.         !endwhile
  26.     forward-character
  27. ;        previous-word
  28.     !endif
  29.     set %tag &chr $curchar
  30.     forward-character
  31.     !while &equal 0 &sindex " ()[]{},;=~t~n~l" $char
  32.     set %tag &cat %tag $char
  33.     forward-character
  34.     !endwhile
  35.  
  36. ; write-message &cat &cat "tag ["  %tag "]"
  37. ; set %wait >k
  38.  
  39.     set-nmark "s" 
  40.     !force search-forward %tag
  41.  
  42. !endm
  43. set $discmd TRUE
  44. bind-to-key execute-macro-26 ^XH
  45.